home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 21
/
Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso
/
Aminet
/
comm
/
maxs
/
KFBSpeedup.lha
/
make_kfbdownload_patches.bas
< prev
next >
Wrap
BASIC Source File
|
1997-08-07
|
1KB
|
60 lines
print
print " Making patched KFBdownload executables for each area, please wait..."
print
print " Please note, empty areas will NOT have a file created for it !"
print
print " Each area should have at least one file in it if you want"
print " exe's to be made automatically for *all* your areas"
print
print " The files will be made in RAM: - copy them to KFB when finished"
print " and change your menus to use the new exe for each file area"
dim areas(99)
open "ram:kfblister.work" for input as #7
l=lof(7)
totalfiles=l
for a=1 to l
a$=input$(1,#7)
b=asc(a$)
areas(b)=areas(b)+1
next a
close #7
for a=1 to 99
if areas(a)>0 then gosub 100
next a
print
print
print " All done :-)"
end
100 rem
open "kfb:kfbdownload" as #1 len=6212
field #1,1000 as a$,1000 as b$,1000 as c$,1000 as d$,1000 as e$,1000 as f$,212 as g$
f2$="RAM:KFBdownload"
if a<10 then f2$=f2$+"0"+right$(str$(a),1)
if a>9 then f2$=f2$+right$(str$(a),2)
patch$="dat/FB"+right$(f2$,2)
open f2$ for output as #2
l=lof(1)
get #1,1
mid$(f$,811,8)=patch$
print #2,a$;
print #2,b$;
print #2,c$;
print #2,d$;
print #2,e$;
print #2,f$;
print #2,g$;
close #1
close #2
return